home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Art / H / HyperPaint.cpt / HyperPaint ƒ / HyperPaint 1.1.1b / stack_-1.xml < prev    next >
Extensible Markup Language  |  1992-05-30  |  3KB  |  22 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in.1b</name>
  5.     <id>-1</id>
  6.     <cardCount>3</cardCount>
  7.     <cardID>2570</cardID>
  8.     <listID>4238</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><true /></cantDelete>
  11.     <cantAbort><true /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>--HyperPaint 1.1.1 stack ¬© 1992 Paul B Joneson openstackput "Hardware and Software support for your old Mac 128, 512 and plus" into message boxshow menubarset userlevel to 3set rect of card window to 0,0,512,384show tool window at 5,35show scroll window at 5,180show message box at 5,304set rect of card window to 80,40,480,290mymenuput "Select 'New Card' or -> to start. HyperPaint 1.1.1 ¬© 1992 Paul B Jones" into message boxend openstackon closestackshow menubargo first carddelete menu "Goodies"set rect of card window to 0,0,512,384hide tool windowhide pattern windowhide scroll windowhide message boxend closestackon opencardset userlevel to 3end opencardon SMchoose browse toolshow menubarend SMon HMchoose browse toolhide menubarend HMon IPchoose select tooldomenu "Import Paint..."choose browse toolend IPon EPchoose select tooldomenu "Export Paint..."choose browse toolend EPon toolsshow tool windowend toolson patternsshow pattern windowend patternson scrollshow scroll windowend scrollon screenshow scroll windowend screenon helpgo to card "help"end helpon backgo Backend backon u5set userlevel to 5end u5on maxhide menubarhide tool windowhide pattern windowhide scroll windowhide message boxset rect of card window to 0,0,512,384end maxon normset userlevel to 3hide menubarset rect of card window to 0,32,480,290show tool window at 5,0show scroll window at 5,145show message box at 5,275set rect of card window to 80,40,480,290show menubarend normon postcardset rect of card window to 80,40,480,240end postcardon hideallhide tool windowhide pattern windowhide scroll windowhide message boxhide card windowend hideallon normalnormend normalon osclosestackopenstackend oson mycardput "One New Card, Coming up" into message boxset userlevel to 3domenu "New card"put "help" into message boxend mycardon myiconglobal myuserput userlevel into myuserset userlevel to 3domenu "Icon..."put myuser into userlevelend myiconon iconsmyiconend iconson miscpalette "misc"end miscon mymenushow menuBar -- just in case it's hiddencreate menu "Goodies" -- ‚àÜput myMenuItems() into menu "Goodies" with menuMsg myMenuMsgs() -- ‚àÜend mymenufunction myMenuItems -- ‚àÜreturn "A New Card,-,Max Size Window,Normal Size Window,Postcard Size Window,Hide Windows,-,Import Paint‚Ķ,"&¬¨"Export Paint‚Ķ,-,Icon Editor‚Ķ,-,Help,-,Goodies Palette"end myMenuItemsfunction myMenuMsgsreturn "mycard,empty,max,Norm,postcard,hideall,empty,ip,ep,empty,myicon,empty,help,empty,misc"end myMenuMsgs</script>
  17.     <background id="4060" file="background_4060.xml" name="" />
  18.     <card id="2570" file="card_2570.xml" marked="false" name="help" owner="4060" />
  19.     <card id="3638" file="card_3638.xml" marked="false" name="" owner="4060" />
  20.     <card id="4817" file="card_4817.xml" marked="false" name="" owner="4060" />
  21. </stack>
  22.